/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / N-P / Open Prolog 1.02.sit / Open Prolog 1.02 / Samples / router

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 72 6f 75 74 65 72 | 00 00 00 00 00 00 00 00 |..router|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 52 4c | 47 01 00 00 00 00 00 00 |.TEXTPRL|G.......|
|00000050| 00 00 00 00 00 0d e1 00 | 00 01 62 a8 d8 ad 16 a8 |........|..b.....|
|00000060| d8 ad 16 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ff 6e 00 00 |........|.....n..|
|00000080| 25 54 68 69 73 20 63 6f | 64 65 20 69 6d 70 6c 65 |%This co|de imple|
|00000090| 6d 65 6e 74 73 20 4c 65 | 65 73 20 28 3f 29 20 41 |ments Le|es (?) A|
|000000a0| 6c 67 6f 72 69 74 68 6d | 20 66 6f 72 20 73 65 61 |lgorithm| for sea|
|000000b0| 72 63 68 69 6e 67 20 66 | 6f 72 20 61 20 72 6f 75 |rching f|or a rou|
|000000c0| 74 65 20 6f 6e 20 61 20 | 50 43 42 0d 25 73 61 6d |te on a |PCB.%sam|
|000000d0| 70 6c 65 20 63 61 6c 6c | 3a 20 65 72 61 73 65 42 |ple call|: eraseB|
|000000e0| 6f 61 72 64 2c 64 72 61 | 77 43 69 72 63 75 69 74 |oard,dra|wCircuit|
|000000f0| 42 6f 61 72 64 2c 64 72 | 61 77 53 65 61 72 63 68 |Board,dr|awSearch|
|00000100| 28 70 28 39 2c 37 29 2c | 70 28 31 30 2c 31 35 29 |(p(9,7),|p(10,15)|
|00000110| 29 2e 0d 0d 0d 3a 2d 20 | 6f 70 28 31 30 2c 78 66 |)....:- |op(10,xf|
|00000120| 79 2c 3a 29 2e 0d 0d 25 | 73 70 65 63 69 66 69 63 |y,:)...%|specific|
|00000130| 61 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 73 61 6d |ation of| the sam|
|00000140| 70 6c 65 20 62 6f 61 72 | 64 20 61 6e 64 20 69 74 |ple boar|d and it|
|00000150| 73 20 73 61 6d 70 6c 65 | 20 63 6f 6d 70 6f 6e 65 |s sample| compone|
|00000160| 6e 74 73 0d 62 6f 61 72 | 64 28 30 3a 30 2d 34 30 |nts.boar|d(0:0-40|
|00000170| 3a 36 30 29 2e 20 25 63 | 6f 2d 6f 72 64 69 6e 61 |:60). %c|o-ordina|
|00000180| 74 65 73 20 61 73 20 69 | 6e 20 4d 61 63 20 2d 20 |tes as i|n Mac - |
|00000190| 54 6f 70 3a 4c 65 66 74 | 2d 42 6f 74 74 6f 6d 3a |Top:Left|-Bottom:|
|000001a0| 52 69 67 68 74 0d 0d 25 | 63 6f 6d 70 6f 6e 65 6e |Right..%|componen|
|000001b0| 74 73 0d 63 6f 6d 70 6f | 6e 65 6e 74 28 32 3a 34 |ts.compo|nent(2:4|
|000001c0| 2d 36 3a 38 29 2e 0d 63 | 6f 6d 70 6f 6e 65 6e 74 |-6:8)..c|omponent|
|000001d0| 28 38 3a 38 2d 31 33 3a | 31 33 29 2e 0d 63 6f 6d |(8:8-13:|13)..com|
|000001e0| 70 6f 6e 65 6e 74 28 31 | 32 3a 33 2d 31 36 3a 35 |ponent(1|2:3-16:5|
|000001f0| 29 2e 0d 63 6f 6d 70 6f | 6e 65 6e 74 28 31 30 3a |)..compo|nent(10:|
|00000200| 31 36 2d 31 31 3a 32 38 | 29 2e 0d 0d 0d 25 73 65 |16-11:28|)....%se|
|00000210| 74 75 70 20 63 6f 6e 73 | 74 61 6e 74 73 20 66 6f |tup cons|tants fo|
|00000220| 72 20 64 72 61 77 69 6e | 67 0d 6d 61 67 6e 69 66 |r drawin|g.magnif|
|00000230| 69 63 61 74 69 6f 6e 28 | 37 2c 37 29 2e 0d 6f 66 |ication(|7,7)..of|
|00000240| 66 73 65 74 28 33 2c 34 | 30 29 2e 0d 63 6f 6c 6f |fset(3,4|0)..colo|
|00000250| 75 72 28 63 6f 6d 70 6f | 6e 65 6e 74 2c 35 29 2e |ur(compo|nent,5).|
|00000260| 20 25 67 72 65 65 6e 0d | 0d 25 63 6f 6c 6f 75 72 | %green.|.%colour|
|00000270| 73 20 30 2d 37 20 62 65 | 6c 6f 77 0d 25 62 6c 61 |s 0-7 be|low.%bla|
|00000280| 63 6b 2c 79 65 6c 6c 6f | 77 2c 6d 61 67 65 6e 74 |ck,yello|w,magent|
|00000290| 61 2c 72 65 64 2c 63 79 | 61 6e 2c 67 72 65 65 6e |a,red,cy|an,green|
|000002a0| 2c 62 6c 75 65 2c 77 68 | 69 74 65 0d 0d 0d 25 61 |,blue,wh|ite...%a|
|000002b0| 73 73 75 6d 65 20 31 20 | 75 6e 69 74 20 67 72 69 |ssume 1 |unit gri|
|000002c0| 64 0d 25 70 6f 69 6e 74 | 73 3a 20 70 28 58 2c 59 |d.%point|s: p(X,Y|
|000002d0| 29 0d 0d 25 6d 61 69 6e | 20 72 6f 75 74 69 6e 65 |)..%main| routine|
|000002e0| 0d 64 72 61 77 53 65 61 | 72 63 68 28 41 2c 42 29 |.drawSea|rch(A,B)|
|000002f0| 20 3a 2d 0d 20 20 20 20 | 20 20 20 20 64 72 61 77 | :-.    |    draw|
|00000300| 50 6f 69 6e 74 28 41 2c | 30 2c 35 29 2c 0d 20 20 |Point(A,|0,5),.  |
|00000310| 20 20 20 20 20 20 64 72 | 61 77 50 6f 69 6e 74 28 |      dr|awPoint(|
|00000320| 41 2c 30 2c 33 29 2c 0d | 20 20 20 20 20 20 20 20 |A,0,3),.|        |
|00000330| 64 72 61 77 50 6f 69 6e | 74 28 42 2c 30 2c 35 29 |drawPoin|t(B,0,5)|
|00000340| 2c 0d 20 20 20 20 20 20 | 20 20 70 61 74 68 46 69 |,.      |  pathFi|
|00000350| 6e 64 28 30 2c 5b 41 5d | 2c 42 2c 58 2d 5b 30 2d |nd(0,[A]|,B,X-[0-|
|00000360| 5b 41 5d 5d 29 2c 21 2c | 0d 20 20 20 20 20 20 20 |[A]]),!,|.       |
|00000370| 20 72 65 74 72 61 63 65 | 50 61 74 68 28 58 2c 42 | retrace|Path(X,B|
|00000380| 29 2e 0d 0d 70 61 74 68 | 46 69 6e 64 28 43 2c 50 |)...path|Find(C,P|
|00000390| 2c 44 2c 58 2d 58 29 20 | 3a 2d 0d 20 20 20 20 20 |,D,X-X) |:-.     |
|000003a0| 20 20 20 6d 65 6d 62 65 | 72 28 44 2c 50 29 2e 0d |   membe|r(D,P)..|
|000003b0| 70 61 74 68 46 69 6e 64 | 28 43 2c 50 6c 2c 44 2c |pathFind|(C,Pl,D,|
|000003c0| 47 2d 5b 43 6f 2d 4c 6f | 7c 48 5d 29 20 3a 2d 0d |G-[Co-Lo||H]) :-.|
|000003d0| 20 20 20 20 20 20 20 20 | 43 31 20 69 73 20 43 2b |        |C1 is C+|
|000003e0| 31 2c 0d 20 20 20 20 20 | 20 20 20 67 65 74 4d 6f |1,.     |   getMo|
|000003f0| 76 65 73 28 50 6c 2c 4c | 2c 4c 6f 29 2c 0d 20 20 |ves(Pl,L|,Lo),.  |
|00000400| 20 20 20 20 20 20 64 72 | 61 77 50 6f 69 6e 74 73 |      dr|awPoints|
|00000410| 28 4c 2c 43 31 2c 33 29 | 2c 21 2c 0d 20 20 20 20 |(L,C1,3)|,!,.    |
|00000420| 20 20 20 20 70 61 74 68 | 46 69 6e 64 28 43 31 2c |    path|Find(C1,|
|00000430| 4c 2c 44 2c 47 2d 5b 43 | 2d 50 6c 2c 43 6f 2d 4c |L,D,G-[C|-Pl,Co-L|
|00000440| 6f 7c 48 5d 29 2e 0d 0d | 67 65 74 4d 6f 76 65 73 |o|H])...|getMoves|
|00000450| 28 5b 5d 2c 5b 5d 2c 45 | 78 29 2e 0d 67 65 74 4d |([],[],E|x)..getM|
|00000460| 6f 76 65 73 28 5b 50 7c | 52 5d 2c 5b 4e 7c 58 5d |oves([P||R],[N|X]|
|00000470| 2c 45 78 29 20 3a 2d 0d | 20 20 20 20 20 20 20 20 |,Ex) :-.|        |
|00000480| 6d 6f 76 65 28 50 2c 4e | 29 2c 0d 20 20 20 20 20 |move(P,N|),.     |
|00000490| 20 20 20 6e 6f 74 20 6d | 65 6d 62 65 72 28 4e 2c |   not m|ember(N,|
|000004a0| 45 78 29 2c 21 2c 0d 20 | 20 20 20 20 20 20 20 67 |Ex),!,. |       g|
|000004b0| 65 74 4d 6f 76 65 73 28 | 5b 50 7c 52 5d 2c 58 2c |etMoves(|[P|R],X,|
|000004c0| 5b 4e 7c 45 78 5d 29 2e | 0d 67 65 74 4d 6f 76 65 |[N|Ex]).|.getMove|
|000004d0| 73 28 5b 50 7c 52 5d 2c | 58 2c 45 78 29 20 3a 2d |s([P|R],|X,Ex) :-|
|000004e0| 0d 20 20 20 20 20 20 20 | 20 67 65 74 4d 6f 76 65 |.       | getMove|
|000004f0| 73 28 52 2c 58 2c 5b 50 | 7c 45 78 5d 29 2e 0d 0d |s(R,X,[P||Ex])...|
|00000500| 6d 6f 76 65 28 70 28 58 | 2c 59 29 2c 70 28 58 31 |move(p(X|,Y),p(X1|
|00000510| 2c 59 29 29 20 3a 2d 20 | 58 31 20 69 73 20 58 2b |,Y)) :- |X1 is X+|
|00000520| 31 2c 6c 65 67 61 6c 28 | 58 31 2c 59 29 2e 0d 6d |1,legal(|X1,Y)..m|
|00000530| 6f 76 65 28 70 28 58 2c | 59 29 2c 70 28 58 31 2c |ove(p(X,|Y),p(X1,|
|00000540| 59 29 29 20 3a 2d 20 58 | 31 20 69 73 20 58 2d 31 |Y)) :- X|1 is X-1|
|00000550| 2c 6c 65 67 61 6c 28 58 | 31 2c 59 29 2e 0d 6d 6f |,legal(X|1,Y)..mo|
|00000560| 76 65 28 70 28 58 2c 59 | 29 2c 70 28 58 2c 59 31 |ve(p(X,Y|),p(X,Y1|
|00000570| 29 29 20 3a 2d 20 59 31 | 20 69 73 20 59 2b 31 2c |)) :- Y1| is Y+1,|
|00000580| 6c 65 67 61 6c 28 58 2c | 59 31 29 2e 0d 6d 6f 76 |legal(X,|Y1)..mov|
|00000590| 65 28 70 28 58 2c 59 29 | 2c 70 28 58 2c 59 31 29 |e(p(X,Y)|,p(X,Y1)|
|000005a0| 29 20 3a 2d 20 59 31 20 | 69 73 20 59 2d 31 2c 6c |) :- Y1 |is Y-1,l|
|000005b0| 65 67 61 6c 28 58 2c 59 | 31 29 2e 0d 0d 6c 65 67 |egal(X,Y|1)...leg|
|000005c0| 61 6c 28 58 2c 59 29 20 | 3a 2d 20 62 6f 61 72 64 |al(X,Y) |:- board|
|000005d0| 28 54 3a 4c 2d 42 3a 52 | 29 2c 58 3e 3d 4c 2c 58 |(T:L-B:R|),X>=L,X|
|000005e0| 3d 3c 52 2c 59 3e 3d 54 | 2c 59 3d 3c 42 2c 6e 6f |=<R,Y>=T|,Y=<B,no|
|000005f0| 74 20 69 6e 43 6f 6d 70 | 6f 6e 65 6e 74 28 58 2c |t inComp|onent(X,|
|00000600| 59 29 2e 0d 0d 25 72 65 | 74 72 61 63 65 20 26 20 |Y)...%re|trace & |
|00000610| 64 72 61 77 20 70 61 74 | 68 20 66 6f 75 6e 64 0d |draw pat|h found.|
|00000620| 72 65 74 72 61 63 65 50 | 61 74 68 28 5b 5f 2d 5b |retraceP|ath([_-[|
|00000630| 58 5d 5d 2c 58 29 2e 0d | 72 65 74 72 61 63 65 50 |X]],X)..|retraceP|
|00000640| 61 74 68 28 5b 5f 2d 4c | 7c 52 5d 2c 50 29 20 3a |ath([_-L||R],P) :|
|00000650| 2d 0d 20 20 20 20 20 20 | 20 20 6d 65 6d 62 65 72 |-.      |  member|
|00000660| 28 43 2c 4c 29 2c 6d 6f | 76 65 28 50 2c 43 29 2c |(C,L),mo|ve(P,C),|
|00000670| 64 72 61 77 4c 69 6e 65 | 28 50 2c 43 29 2c 0d 20 |drawLine|(P,C),. |
|00000680| 20 20 20 20 20 20 20 72 | 65 74 72 61 63 65 50 61 |       r|etracePa|
|00000690| 74 68 28 52 2c 43 29 2e | 0d 0d 25 73 6f 6d 65 20 |th(R,C).|..%some |
|000006a0| 64 72 61 77 69 6e 67 20 | 73 74 75 66 66 0d 64 72 |drawing |stuff.dr|
|000006b0| 61 77 43 69 72 63 75 69 | 74 42 6f 61 72 64 20 3a |awCircui|tBoard :|
|000006c0| 2d 0d 20 20 20 20 20 20 | 20 20 62 6f 61 72 64 28 |-.      |  board(|
|000006d0| 42 6f 61 72 64 29 2c 0d | 20 20 20 20 20 20 20 20 |Board),.|        |
|000006e0| 64 72 61 77 42 6f 61 72 | 64 28 42 6f 61 72 64 29 |drawBoar|d(Board)|
|000006f0| 2c 0d 20 20 20 20 20 20 | 20 20 64 72 61 77 43 6f |,.      |  drawCo|
|00000700| 6d 70 6f 6e 65 6e 74 73 | 2e 0d 64 72 61 77 43 6f |mponents|..drawCo|
|00000710| 6d 70 6f 6e 65 6e 74 73 | 20 3a 2d 0d 20 20 20 20 |mponents| :-.    |
|00000720| 20 20 20 63 6f 6d 70 6f | 6e 65 6e 74 28 43 6f 6d |   compo|nent(Com|
|00000730| 70 6f 6e 65 6e 74 29 2c | 0d 20 20 20 20 20 20 20 |ponent),|.       |
|00000740| 64 72 61 77 43 6f 6d 70 | 6f 6e 65 6e 74 28 43 6f |drawComp|onent(Co|
|00000750| 6d 70 6f 6e 65 6e 74 29 | 2c 66 61 69 6c 2e 0d 64 |mponent)|,fail..d|
|00000760| 72 61 77 43 6f 6d 70 6f | 6e 65 6e 74 73 2e 0d 20 |rawCompo|nents.. |
|00000770| 0d 0d 64 72 61 77 42 6f | 61 72 64 28 54 6f 70 3a |..drawBo|ard(Top:|
|00000780| 4c 65 66 74 2d 42 6f 74 | 74 6f 6d 3a 52 69 67 68 |Left-Bot|tom:Righ|
|00000790| 74 29 20 3a 2d 0d 20 20 | 20 20 20 20 20 20 6d 61 |t) :-.  |      ma|
|000007a0| 67 6e 69 66 69 63 61 74 | 69 6f 6e 28 42 79 58 2c |gnificat|ion(ByX,|
|000007b0| 42 79 59 29 2c 0d 20 20 | 20 20 20 20 20 20 6f 66 |ByY),.  |      of|
|000007c0| 66 73 65 74 28 58 6f 2c | 59 6f 29 2c 0d 20 20 20 |fset(Xo,|Yo),.   |
|000007d0| 20 20 20 20 20 54 20 69 | 73 20 54 6f 70 2a 42 79 |     T i|s Top*By|
|000007e0| 59 2b 59 6f 2c 0d 20 20 | 20 20 20 20 20 20 4c 20 |Y+Yo,.  |      L |
|000007f0| 69 73 20 4c 65 66 74 2a | 42 79 58 2b 58 6f 2c 0d |is Left*|ByX+Xo,.|
|00000800| 20 20 20 20 20 20 20 20 | 42 20 69 73 20 42 6f 74 |        |B is Bot|
|00000810| 74 6f 6d 2a 42 79 59 2b | 59 6f 2c 0d 20 20 20 20 |tom*ByY+|Yo,.    |
|00000820| 20 20 20 20 52 20 69 73 | 20 52 69 67 68 74 2a 42 |    R is| Right*B|
|00000830| 79 58 2b 58 6f 2c 0d 20 | 20 20 20 20 20 20 20 64 |yX+Xo,. |       d|
|00000840| 72 61 77 28 31 2c 27 54 | 68 65 20 42 6f 61 72 64 |raw(1,'T|he Board|
|00000850| 27 28 54 2c 4c 2c 42 2c | 52 29 2c 5f 29 2e 0d 0d |'(T,L,B,|R),_)...|
|00000860| 65 72 61 73 65 42 6f 61 | 72 64 20 3a 2d 0d 20 20 |eraseBoa|rd :-.  |
|00000870| 20 20 20 20 20 20 64 72 | 61 77 28 32 2c 5f 2c 5f |      dr|aw(2,_,_|
|00000880| 29 2e 0d 0d 64 72 61 77 | 43 6f 6d 70 6f 6e 65 6e |)...draw|Componen|
|00000890| 74 28 54 6f 70 3a 4c 65 | 66 74 2d 42 6f 74 74 6f |t(Top:Le|ft-Botto|
|000008a0| 6d 3a 52 69 67 68 74 29 | 20 3a 2d 0d 20 20 20 20 |m:Right)| :-.    |
|000008b0| 20 20 20 20 6d 61 67 6e | 69 66 69 63 61 74 69 6f |    magn|ificatio|
|000008c0| 6e 28 42 79 58 2c 42 79 | 59 29 2c 0d 20 20 20 20 |n(ByX,By|Y),.    |
|000008d0| 20 20 20 20 54 20 69 73 | 20 54 6f 70 2a 42 79 59 |    T is| Top*ByY|
|000008e0| 2c 0d 20 20 20 20 20 20 | 20 20 4c 20 69 73 20 4c |,.      |  L is L|
|000008f0| 65 66 74 2a 42 79 58 2c | 0d 20 20 20 20 20 20 20 |eft*ByX,|.       |
|00000900| 20 42 20 69 73 20 42 6f | 74 74 6f 6d 2a 42 79 59 | B is Bo|ttom*ByY|
|00000910| 2c 0d 20 20 20 20 20 20 | 20 20 52 20 69 73 20 52 |,.      |  R is R|
|00000920| 69 67 68 74 2a 42 79 58 | 2c 0d 20 20 20 20 20 20 |ight*ByX|,.      |
|00000930| 20 20 63 6f 6c 6f 75 72 | 28 63 6f 6d 70 6f 6e 65 |  colour|(compone|
|00000940| 6e 74 2c 43 29 2c 0d 20 | 20 20 20 20 20 20 20 64 |nt,C),. |       d|
|00000950| 72 61 77 28 39 2c 63 6f | 6c 6f 72 28 43 29 2c 5f |raw(9,co|lor(C),_|
|00000960| 29 2c 0d 20 20 20 20 20 | 20 20 20 64 72 61 77 28 |),.     |   draw(|
|00000970| 34 2c 72 65 63 74 28 4c | 2c 54 2c 52 2c 42 29 2c |4,rect(L|,T,R,B),|
|00000980| 5f 29 2e 0d 0d 64 72 61 | 77 50 6f 69 6e 74 28 70 |_)...dra|wPoint(p|
|00000990| 28 58 2c 59 29 2c 43 2c | 53 69 7a 65 29 20 3a 2d |(X,Y),C,|Size) :-|
|000009a0| 0d 20 20 20 20 20 20 20 | 20 6d 61 67 6e 69 66 69 |.       | magnifi|
|000009b0| 63 61 74 69 6f 6e 28 42 | 79 58 2c 42 79 59 29 2c |cation(B|yX,ByY),|
|000009c0| 0d 20 20 20 20 20 20 20 | 20 44 65 6c 74 61 20 69 |.       | Delta i|
|000009d0| 73 20 53 69 7a 65 2f 32 | 2c 0d 20 20 20 20 20 20 |s Size/2|,.      |
|000009e0| 20 20 54 20 69 73 20 59 | 2a 42 79 59 2d 44 65 6c |  T is Y|*ByY-Del|
|000009f0| 74 61 2c 0d 20 20 20 20 | 20 20 20 20 4c 20 69 73 |ta,.    |    L is|
|00000a00| 20 58 2a 42 79 58 2d 44 | 65 6c 74 61 2c 0d 20 20 | X*ByX-D|elta,.  |
|00000a10| 20 20 20 20 20 20 42 20 | 69 73 20 54 2b 53 69 7a |      B |is T+Siz|
|00000a20| 65 2c 0d 20 20 20 20 20 | 20 20 20 52 20 69 73 20 |e,.     |   R is |
|00000a30| 4c 2b 53 69 7a 65 2c 0d | 20 20 20 20 20 20 20 20 |L+Size,.|        |
|00000a40| 43 6c 20 69 73 20 43 20 | 6d 6f 64 20 37 2c 0d 20 |Cl is C |mod 7,. |
|00000a50| 20 20 20 20 20 20 20 64 | 72 61 77 28 39 2c 63 6f |       d|raw(9,co|
|00000a60| 6c 6f 72 28 43 6c 29 2c | 5f 29 2c 0d 20 20 20 20 |lor(Cl),|_),.    |
|00000a70| 20 20 20 20 64 72 61 77 | 28 34 2c 72 65 63 74 28 |    draw|(4,rect(|
|00000a80| 4c 2c 54 2c 52 2c 42 29 | 2c 5f 29 2e 0d 0d 64 72 |L,T,R,B)|,_)...dr|
|00000a90| 61 77 4c 69 6e 65 73 28 | 5b 70 28 58 31 2c 59 31 |awLines(|[p(X1,Y1|
|00000aa0| 29 2c 70 28 58 32 2c 59 | 32 29 7c 52 65 73 74 5d |),p(X2,Y|2)|Rest]|
|00000ab0| 2c 43 29 20 3a 2d 0d 20 | 20 20 20 20 20 20 20 21 |,C) :-. |       !|
|00000ac0| 2c 0d 20 20 20 20 20 20 | 20 20 6d 61 67 6e 69 66 |,.      |  magnif|
|00000ad0| 69 63 61 74 69 6f 6e 28 | 42 79 58 2c 42 79 59 29 |ication(|ByX,ByY)|
|00000ae0| 2c 0d 20 20 20 20 20 20 | 20 20 54 20 69 73 20 59 |,.      |  T is Y|
|00000af0| 31 2a 42 79 59 2d 31 2c | 0d 20 20 20 20 20 20 20 |1*ByY-1,|.       |
|00000b00| 20 4c 20 69 73 20 58 31 | 2a 42 79 58 2d 31 2c 0d | L is X1|*ByX-1,.|
|00000b10| 20 20 20 20 20 20 20 20 | 42 20 69 73 20 54 2b 33 |        |B is T+3|
|00000b20| 2c 0d 20 20 20 20 20 20 | 20 20 52 20 69 73 20 4c |,.      |  R is L|
|00000b30| 2b 33 2c 0d 20 20 20 20 | 20 20 20 20 43 6c 20 69 |+3,.    |    Cl i|
|00000b40| 73 20 43 20 6d 6f 64 20 | 36 2c 0d 20 20 20 20 20 |s C mod |6,.     |
|00000b50| 20 20 20 64 72 61 77 28 | 39 2c 63 6f 6c 6f 72 28 |   draw(|9,color(|
|00000b60| 43 6c 29 2c 5f 29 2c 0d | 20 20 20 20 20 20 20 20 |Cl),_),.|        |
|00000b70| 64 72 61 77 28 34 2c 72 | 65 63 74 28 4c 2c 54 2c |draw(4,r|ect(L,T,|
|00000b80| 52 2c 42 29 2c 5f 29 2c | 0d 20 20 20 20 20 20 20 |R,B),_),|.       |
|00000b90| 20 54 32 20 69 73 20 59 | 32 2a 42 79 59 2d 31 2c | T2 is Y|2*ByY-1,|
|00000ba0| 0d 20 20 20 20 20 20 20 | 20 4c 32 20 69 73 20 58 |.       | L2 is X|
|00000bb0| 32 2a 42 79 58 2d 31 2c | 0d 20 20 20 20 20 20 20 |2*ByX-1,|.       |
|00000bc0| 20 42 32 20 69 73 20 54 | 32 2b 33 2c 0d 20 20 20 | B2 is T|2+3,.   |
|00000bd0| 20 20 20 20 20 52 32 20 | 69 73 20 4c 32 2b 33 2c |     R2 |is L2+3,|
|00000be0| 0d 20 20 20 20 20 20 20 | 20 58 73 20 69 73 20 4c |.       | Xs is L|
|00000bf0| 2b 31 2c 59 73 20 69 73 | 20 54 2b 31 2c 0d 20 20 |+1,Ys is| T+1,.  |
|00000c00| 20 20 20 20 20 20 58 65 | 20 69 73 20 4c 32 2b 31 |      Xe| is L2+1|
|00000c10| 2c 59 65 20 69 73 20 54 | 32 2b 31 2c 0d 20 20 20 |,Ye is T|2+1,.   |
|00000c20| 20 20 20 20 20 64 72 61 | 77 28 34 2c 72 65 63 74 |     dra|w(4,rect|
|00000c30| 28 4c 32 2c 54 32 2c 52 | 32 2c 42 32 29 2c 5f 29 |(L2,T2,R|2,B2),_)|
|00000c40| 2c 0d 20 20 20 20 20 20 | 20 20 64 72 61 77 28 33 |,.      |  draw(3|
|00000c50| 2c 6c 69 6e 65 28 58 73 | 2c 59 73 2c 58 65 2c 59 |,line(Xs|,Ys,Xe,Y|
|00000c60| 65 29 2c 5f 29 2c 0d 20 | 20 20 20 20 20 20 20 64 |e),_),. |       d|
|00000c70| 72 61 77 4c 69 6e 65 73 | 28 5b 70 28 58 32 2c 59 |rawLines|([p(X2,Y|
|00000c80| 32 29 7c 52 65 73 74 5d | 2c 43 29 2e 0d 64 72 61 |2)|Rest]|,C)..dra|
|00000c90| 77 4c 69 6e 65 73 28 5f | 2c 5f 29 2e 0d 0d 64 72 |wLines(_|,_)...dr|
|00000ca0| 61 77 4c 69 6e 65 28 70 | 28 58 31 2c 59 31 29 2c |awLine(p|(X1,Y1),|
|00000cb0| 70 28 58 32 2c 59 32 29 | 29 20 3a 2d 0d 20 20 20 |p(X2,Y2)|) :-.   |
|00000cc0| 20 20 20 20 20 6d 61 67 | 6e 69 66 69 63 61 74 69 |     mag|nificati|
|00000cd0| 6f 6e 28 42 79 58 2c 42 | 79 59 29 2c 0d 20 20 20 |on(ByX,B|yY),.   |
|00000ce0| 20 20 20 20 20 54 20 69 | 73 20 59 31 2a 42 79 59 |     T i|s Y1*ByY|
|00000cf0| 2c 0d 20 20 20 20 20 20 | 20 20 4c 20 69 73 20 58 |,.      |  L is X|
|00000d00| 31 2a 42 79 58 2c 0d 20 | 20 20 20 20 20 20 20 54 |1*ByX,. |       T|
|00000d10| 32 20 69 73 20 59 32 2a | 42 79 59 2c 0d 20 20 20 |2 is Y2*|ByY,.   |
|00000d20| 20 20 20 20 20 4c 32 20 | 69 73 20 58 32 2a 42 79 |     L2 |is X2*By|
|00000d30| 58 2c 0d 20 20 20 20 20 | 20 20 20 64 72 61 77 28 |X,.     |   draw(|
|00000d40| 33 2c 6c 69 6e 65 28 4c | 2c 54 2c 4c 32 2c 54 32 |3,line(L|,T,L2,T2|
|00000d50| 29 2c 5f 29 2e 0d 0d 64 | 72 61 77 50 6f 69 6e 74 |),_)...d|rawPoint|
|00000d60| 73 28 5b 5d 2c 5f 2c 5f | 29 2e 0d 64 72 61 77 50 |s([],_,_|)..drawP|
|00000d70| 6f 69 6e 74 73 28 5b 58 | 7c 59 5d 2c 43 2c 53 29 |oints([X||Y],C,S)|
|00000d80| 20 3a 2d 20 64 72 61 77 | 50 6f 69 6e 74 28 58 2c | :- draw|Point(X,|
|00000d90| 43 2c 53 29 2c 64 72 61 | 77 50 6f 69 6e 74 73 28 |C,S),dra|wPoints(|
|00000da0| 59 2c 43 2c 53 29 2e 0d | 0d 25 73 6f 6d 65 20 75 |Y,C,S)..|.%some u|
|00000db0| 74 69 6c 69 74 69 65 73 | 0d 0d 69 6e 43 6f 6d 70 |tilities|..inComp|
|00000dc0| 6f 6e 65 6e 74 28 58 2c | 59 29 20 3a 2d 63 6f 6d |onent(X,|Y) :-com|
|00000dd0| 70 6f 6e 65 6e 74 28 54 | 3a 4c 2d 42 3a 52 29 2c |ponent(T|:L-B:R),|
|00000de0| 58 3e 3d 4c 2c 58 3d 3c | 52 2c 59 3e 3d 54 2c 59 |X>=L,X=<|R,Y>=T,Y|
|00000df0| 3d 3c 42 2e 0d 0d 6d 65 | 6d 62 65 72 28 58 2c 5b |=<B...me|mber(X,[|
|00000e00| 58 7c 5f 5d 29 2e 0d 6d | 65 6d 62 65 72 28 58 2c |X|_])..m|ember(X,|
|00000e10| 5b 5f 7c 52 5d 29 20 3a | 2d 20 6d 65 6d 62 65 72 |[_|R]) :|- member|
|00000e20| 28 58 2c 52 29 2e 0d 0d | 61 70 70 65 6e 64 28 5b |(X,R)...|append([|
|00000e30| 5d 2c 58 2c 58 29 2e 0d | 61 70 70 65 6e 64 28 5b |],X,X)..|append([|
|00000e40| 58 7c 59 5d 2c 5a 2c 5b | 58 7c 52 5d 29 20 3a 2d |X|Y],Z,[|X|R]) :-|
|00000e50| 20 61 70 70 65 6e 64 28 | 59 2c 5a 2c 52 29 2e 0d | append(|Y,Z,R)..|
|00000e60| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 01 00 00 00 01 30 | 00 00 00 30 00 00 00 32 |.......0|...0...2|
|00000e90| 69 6e 64 2c 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ind,.   |        |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000eb0| 06 72 6f 75 74 65 72 72 | 02 00 00 00 50 61 72 74 |.routerr|....Part|
|00000ec0| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 12 81 |SIT!....|........|
|00000ed0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 a9 c7 3a 47 00 00 | 00 00 00 00 01 62 3c 3e |....:G..|.....b<>|
|00000f00| 20 6e 6f 45 72 72 0d 20 | 20 20 20 20 20 20 20 20 | noErr. |        |
|00000f10| 20 20 20 54 48 45 4e 20 | 0d 09 09 09 09 09 09 62 |   THEN |.......b|
|00000f20| 65 67 69 6e 0d 09 09 09 | 09 09 09 73 69 67 6e 61 |egin....|...signa|
|00000f30| 6c 45 72 72 6f 72 28 65 | 72 72 6f 72 4b 69 6e 64 |lError(e|rrorKind|
|00000f40| 2c 20 61 72 67 75 6d 65 | 6e 74 49 6e 64 65 78 2c |, argume|ntIndex,|
|00000f50| 20 68 6f 73 74 45 72 72 | 6f 72 43 6f 64 65 2c 20 | hostErr|orCode, |
|00000f60| 73 2c 20 70 6c 69 73 74 | 29 3b 0d 09 09 09 09 09 |s, plist|);......|
|00000f70| 09 65 78 69 74 28 6d 61 | 69 6e 29 3b 0d 09 09 09 |.exit(ma|in);....|
|00000f80| 00 00 00 2c 01 02 80 08 | 00 00 05 31 2e 30 2e 32 |...,....|...1.0.2|
|00000f90| 1f 44 6f 63 75 6d 65 6e | 74 73 20 66 6f 72 20 4f |.Documen|ts for O|
|00000fa0| 70 65 6e 20 50 72 6f 6c | 6f 67 20 31 2e 30 2e 32 |pen Prol|og 1.0.2|
|00000fb0| 00 00 01 00 00 00 01 30 | 00 00 00 30 00 00 00 32 |.......0|...0...2|
|00000fc0| 00 46 73 f8 19 b6 00 00 | 00 1c 00 32 00 00 76 65 |.Fs.....|...2..ve|
|00000fd0| 72 73 00 00 00 0a 00 01 | ff ff 00 00 00 00 00 46 |rs......|.......F|
|00000fe0| 73 8c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+